NIL 


(NIL (DATE* %OLDINITFN) (EDIT? *PUTSYM) (DPB MKVAR) (OUTPUT INFSTAT ~
!) (MKOP PROCSTAT PROCSTAT1 CADAR /,) NIL (B NUMLIS LPRIE) (M VARPRI~
 ** GEN) (X IDIVI EXPT *NOPOINT) NIL (NARY NUMVAL) (CDADR STEP ARG C~
DDDAR) (DIVIDE) (NCONS %-NAM TIMES NCONSX) (EXPLODEC LPRIM MKAT EXPL~
ODE CDDDDR) (ZZ) NIL NIL (SCAN* *SEMICOL* RIGHT) (CLOC* *BPROCEED* A~
PPEND) NIL (ADD1) (RPG) (OR MVAR) (GEQ LPRIW) (MOVEI JRST UNTIL **DA~
SH SUBST) (IBASE) (SUB1) (CDDDR) (MOVEM ARRAYFN ARRAY CAR / +/  BASE~
) (FOODSK **BLANK) (LINE MAPLIST BOOLE) (# WHILE) (IGCHARS /. NULL) ~
(EXP VARS* FLATSIZE) (D FLATTEN FIXP) (O LC OUTDEF LPT:) (Z TEN CAAD~
AR) NIL (TYI PRECEDENCE ONEP) (CAADDR) (GET ON1 STATEMENT) (STATFN) ~
(PAIR *BREAK*) NIL (DELETE SOSLNK) (%SETFILE SHUT PRECLIS* SYSIN) (*~
RPAR* BPORG) (MK*SQ LSUBR HLLZS@ LABEL) (SCANINIT L12) (*EVAL LEXPR)~
 (*LESS EXAMINE CSYM) (NOT CAMN DEVP) (SOS* PRECSTAT PRECSET) (CONT?~
 CAADR CADDAR) (OLDCH) (LPL* INC) (MAP %DEFIN CADDDR) (∧ SCANRESET S~
ETARG) (SCANSET / :=/  QLIST) NIL (% FOUND) NIL (; HLRZ@) (F) (Q DO ~
ALT) (SOS FORSTAT RRDLS EXARRAY) (DEFP CONTL* *UDT) (SYMBOLIC SYMBOL~
) (/⎇ EXPR REFG SUBLIS) NIL (BEGIN BEGIN1 *ANS RECIP CADDR) NIL (TYO~
 LINE* GETEL) (EXIT MAPC REMLAP) (**FMARK) (PRIN1) (QUOTE *GREAT OPF~
N GOTO) (*PLUS) (LOSE) (*S* REDH %EX%) (WRS QUOTIENT) (%NEWINITFN OU~
TL* *MSG SCNVAL) (REDEFINED SLST) (MKFIL) (ILDB) (SASSOC) (ε FLONUM)~
 (/ / / / / /  / =/ ) (MESPRI EXCH ADD ZEROP IFSTAT) (EVAL ' BINARY ~
INI) (L4A EXCEEDED) (COM/  =) (H PAREN) (S PRINC QQSVCM PRINCX) (SUB~
 REDERR ↑) NIL (APNINIT ABS) (ERRPRI2) (IN OFFSTAT) (CURSYM* THEN SY~
M *FUNCTION) (MEMQ) (SCALAR DELCP TABLE) (IFL*) NIL NIL (ERFG* / -/ ~
 ACHLOC) (LINELENGTH) (IF %OCH%) (TR1 EX LSH *QUO) NIL (PRINT PRINTT~
Y) (MATP* STRING STRINGP VAL) NIL (LAMSTAT) (EQCAR GWD) (PROG FORLOO~
P SETDIFF MINUSP MINUS λ) (RED2 HRLM) (PUSH ≡) (FOO /) ALGEBRAIC **E~
OF GVAL) NIL (?) (SETQ TOKEN GC) (U %LL% GRINDEF) NIL NIL (POPJ SKIP~
E MKEX) (PRTCH EDFUN) (RREAD *TIMES RREAD1 DEFN) NIL (SUBR %DEV) (IN~
ITCHAN) (TERPRI TERPRIX *DIF) (REVLIS NOUUO *LPAR*) (DO/[1/,3/] INIT~
FN %L) (CAIN) (FOR CDAR) (APROC) (SYMERR LOC) (JUMPE OUT MAPCAR) (IN~
ITL PTOKEN INITL*) (LAMBDA IMODE* JCALL JCALLF@ JCALLF) (REMOB TMODE~
*) (DSK: GREATERP GREATEQ) NIL (TMP ENDSTAT %FLIST GCGAG MAKNAM *GET~
SYM) (MKARG) (/  SWITCH* LITER) (JUMPN RLIS /+) (DEFPROP L11) (A UNT~
R) (L HRRM) (W MEMBER FNAME* ERRSET) (CDDR MAPCON) NIL NIL (OUTC IFL~
ET UNDEF) (AND) (XCONS) (*LCALL) (HAS) (SPECBIND *AMAKE) (SAVLSP IDP~
B COND REMOVEX REMOVE) (%-VAL IGNORE) (POP PAGE DATATYPE NEWFORM) (M~
AKNUM) (PROG2 LOAD RETRY) (*MODE ONSTAT SL) (SPECIAL PGLINE CAME) (C~
LEARM OFF CLEARB REDMSG1) (TRST) (REMTYPE IPL* FNC) (DECL SOJN) (PUT~
PROP WRITE) (*EXPAND1 *EXPAND) (↔ NXTSYM*) (/") (TTYUUO OPEN /- **XM~
ARK LST) (SPECSTR :=) (C ELSE CAAR) (CONS N TRACE TRACE1 TRACET) (Y ~
FIXNUM CORSTAT HRLM@ YESP) (*COLON* SEMIC* DECIMAL RESET) (LIST PROG~
CHK %FNAM) NIL (READ) (FILE* ON GETD) (WRITSTAT PLUS) (DDTIN) (FLAG)~
 (*APPEND *INT OFL*) (MS) (PUSHJ CLOSE LAST GCTIME) (%CHAN) (DF %ICH~
%) (COMM1) (CADR BLOCKP* BLOCKSTAT) (REVERSE RLIS1 *APPLY) (PROGRAM*~
 PROGRAML* ASCII PROGRAM) (%SOSSWAP BAKGAG UNSLST) (DEFINE SAVEBPORG~
) (LAP G/  DECSTAT) (PROGVR LDEG) (MACRO) (%-FUN REMCOMMA) ($ OPS) (~
// PAGE* MKQUOTE) (: KEY1* <= CORE) (E) (P LLENGTH*) (INPUT NO SAVEL~
APORG %DEVP) (EQUAL COMMAND CRCHAR*) (INVALID) (CALL EN1) NIL (XREAD~
1 XREAD HRRM@ END SET LETL* PTS COMMENT UNTRACE BPEND UNTRACET) (DIR~
ECT) (FILEIN LENGTH) (RLISF) NIL (KEY* REDS BREAK) (%NEXTTYI TIMSTAT~
) (FINISHED-LOADING) (NEWNAM DEFSYM) (MKFORM MKFORML) (**DOLLAR) (RE~
TURN MOVNI NORLIS) (SOJG DFPRINT) (ECHOL*) (MKPREC) (DMP INFN IGLIST~
* HRRZ) (DEFL* ALL JSP ¬ SPEAK) NIL (UNTRST DELIM ≠) (FUNCTION & OCT~
AL) (ORDERP INUM0 **PLUSS) (TRSET1 TRSET2 >= <) (G ERR UNARY DECLARE~
) (R ENTERING PROC) (HRLI MKPROG DSKIN) (ADDI *NEW) (CHRCT NSTR) (*A~
RRAY) (**QMARK GTS LAPEVAL) (CDAAAR) (***) (SUBI RCMDFN TYPE) (BIN S~
ETEL STIME SPACES TIME PUTSYM SPACE CDAADR) (%-CNTR GOSTAT) NIL (/-L~
 MODESTAT) (CAIE L4 LAPORG %SEXPR) (READCH) (//NON/  FIX1A SINITL) (~
TR UNEQ LPRI) (EDIT LEQ NOCHANGE) (LEAVING SIMP* ADFORM *NAT FIX) (E~
QS) (REAL OPL* READIN %TALK) (GENSYM GETL REMAINDER) (LSP DIGIT) (*R~
SET CDAAR READLIST CDDAAR) (RDS DEFLIST) (/() (SUBFUN1EDIT2 SUBFUN1T~
RSET2 SUBFUN2BEGIN1 SUBFUN1BEGIN1 SUBFUN1INOUT SUBFUN1MKAT SUBFUN1*A~
RRAY SUBFUN1REMFLAG SUBFUN1FLAG SUBFUN1LOSE CDDADR) (**UN** > PATCH)~
 (I ALLOC) (T GO SYS:) (ATOM REMFLAG FLAGOP ← DEFLOC %READCHAN %READ~
AFILE) (MOVE FLAGP** FLAGP) NIL NIL NIL (FLAGTYPE) (REE SHARE) (DEF*~
 SPRINT ILAP) (HOLD) NIL (FSUBR DIFFERENCE *FORT CDDAR) (TRO) (FEXPR~
) (**ARRAY) NIL (GCD* VALUE CALLF@ CALLF OBLIST CPTR) (ACONC NEQ SIM~
PFG) (INTEGER) (CALLI REMPROP) (LESSEQ IECHO* ERROR ERRORSET STORE C~
AAAAR) (SOJE TYPE* BU51) (STAT CNTRS RETSTAT KLIST) (FORALLFN DEPOSI~
T ED CAAADR) (MAT ∨) (* APPLY) (SCAN *DEFN GETSYM FUNARG) (HRRZ@ %FP~
AGE) (K LOCN COMPRESS) (V TIME1* INTERN GCD) (PNAME TO TIME2*) (LESS~
P) NIL (EXCISE LOCATABLE) (RPLACA RPLACD) NIL (EDIT0 TDZA CDR) (NIL ~
EDIT1 CAAAR CADAAR) (TLNN EDIT2 LISP SETK EIGHT DM) (CMD RED1) (NUMB~
ERP PROCEDURE G0000 CADADR) (*COMMA* PAUSE CONT CONLIST) (VBL) (INOU~
T **NULL) (**ESC ASSOC FLD %OLDCHAN CDADAR) (INFIX $EOF$ PUT) (%-ARG~
S *ECHO HRRZS@ WRD) (NCONC DE CDADDR) (FLG* EQ LETTER STA) (SOSSWAP ~
HLRZ) NIL)